home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / circle demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  93 lines
  1. 10 ;*********************************
  2. 11 ;*                               *
  3. 12 ;* giga-ass grafik-routinen demo *
  4. 13 ;* ----------------------------- *
  5. 14 ;*                               *
  6. 15 ;* achtung: vor assemblieren     *
  7. 16 ;* muessen zwei voraussetzungen  *
  8. 17 ;* erfuellt sein:                *
  9. 18 ;*                               *
  10. 19 ;* 1. der objektcode der grafik- *
  11. 20 ;* routinen muss in den speicher *
  12. 21 ;* geladen worden sein.          *
  13. 22 ;*                               *
  14. 23 ;* 2. das makro merge-file muss  *
  15. 24 ;* mit dem "m" befehl an diesen  *
  16. 25 ;* quelltext angehaengt worden   *
  17. 26 ;* sein.                         *
  18. 27 ;*                               *
  19. 28 ;*********************************
  20. 100 +$7000
  21. 110 usrdemo
  22. 120 demo designclose3
  23. 130  clear
  24. 140  colorclose$bf
  25. 150  textcloset1,6,9,1,3,0,0
  26. 160  pageclose3
  27. 170  borderclose$f
  28. 180  frameclose35,35,290,90
  29. 190  frameclose40,40,285,85
  30. 200  fillclose37,64
  31. 210  fillclose287,64
  32. 220  textcloset2,13,6,0,1,1,0
  33. 230  textcloset3,17,6,0,0,1,0
  34. 240  textcloset4,19,7,0,0,1,0
  35. 250  spacewait
  36. 260  borderclose$c
  37. 270  clear
  38. 280  colorclose$c
  39. 290 ; 1. aufruf
  40. 300  mid$#160
  41. 310  (NULL)xc
  42. 320  mid$#0
  43. 330  (NULL)xc+1
  44. 340  mid$#100
  45. 350  (NULL)yc
  46. 360  (NULL)subr
  47. 370 ; 2. aufruf
  48. 380  mid$#228
  49. 390  (NULL)yc
  50. 400  (NULL)subr
  51. 410 ; 3. aufruf
  52. 420  mid$#54
  53. 430  (NULL)xc
  54. 440  mid$#1
  55. 450  (NULL)xc+1
  56. 460  mid$#10
  57. 470  (NULL)yc
  58. 480  (NULL)subr
  59. 490 exit off
  60. 500  mid$#0
  61. 510  (NULL)198
  62. 520  (NULL)
  63. 530 t1 not"circle demo"
  64. 540 t2 not"[199]iga-[193]ss [199]rafik-[210]outinen [196]emo"
  65. 550 t3 not"[218]um [193]bbruch <[211][208][193][195][197]> druecken!"
  66. 560 t4 not"[202]etzt weiter mit <[211][208][193][195][197]>..."
  67. 570 subr mid$#2
  68. 580  (NULL)rad
  69. 590 loop1 circleiclosexc,yc,rad
  70. 600  exitkey
  71. 610  right$rad
  72. 620  (NULL)loop1
  73. 630  mid$#2
  74. 640  (NULL)rad
  75. 650 loop2 ccircleiclosexc,yc,rad
  76. 660  exitkey
  77. 670  right$rad
  78. 680  (NULL)loop2
  79. 690  (NULL)
  80. 700 xc then2
  81. 710 yc then1
  82. 720 rad then1
  83. 730 tab(exitadr=exit
  84. 740 getexitkey
  85. 750  mid$203
  86. 760  str$#$3c
  87. 770  (NULL)cont
  88. 780  (NULL)
  89. 790  (NULL)
  90. 800  (NULL)exitadr
  91. 810 cont
  92. 820 new
  93.